home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Moscow ML 1.42 / lib / edit < prev    next >
Encoding:
Text File  |  1997-08-18  |  294 b   |  10 lines  |  [TEXT/R*ch]
  1. (* ---------------------------------------------------------- *)
  2.    local 
  3.       val file = ref ""
  4.       fun setit "" = !file
  5.     | setit s  = (file := s; s)
  6.    in 
  7.       fun e s = (system ("edit " ^ setit s); use (setit s))
  8.    end
  9. (* ---------------------------------------------------------- *)
  10.